home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / p / pofo / sprachen / pbasic / pbas30 / chart.bas < prev    next >
Encoding:
BASIC Source File  |  1991-08-22  |  1.0 KB  |  57 lines
  1. cls
  2. display 2 'tracked
  3. print "CHART.BAS (c) Rob Kunstadt 1990"
  4. print "Is display tracked PC?"
  5. print "Use Alt-Cursor to scroll screen"
  6. print "Enter hours (13 max per day)"
  7. print
  8. print "Monday"
  9. input "Hours Worked"; a
  10. print
  11. print "Tuesday"
  12. input "Hours Worked"; b
  13. print
  14. print "Wednesday"
  15. input "Hours Worked"; c
  16. print
  17. print "Thursday"
  18. input "Hours Worked"; d
  19. print
  20. print "Friday"
  21. input "Hours Worked"; e
  22. print
  23. print "Saturday"
  24. input "Hours Worked"; f
  25. print
  26. print "Sunday"
  27. input "Hours Worked"; g
  28. print
  29. print "Press RTN to view chart"
  30. input "",z
  31. cls
  32. print "Monday: ";a;" hours"
  33. box 2,1,3,3*a,1 
  34. print
  35. print "Tuesday: ";b;" hours"
  36. box 5,1,6,3*b,1
  37. print
  38. print "Wednesday: ";c;" hours"
  39. box 8,1,9,3*c,1
  40. print
  41. print "Thursday: ";d;" hours"
  42. box 11,1,12,3*d,1
  43. print
  44. print "Friday: ";e;" hours"
  45. box 14,1,15,3*e,1
  46. print
  47. print "Saturday: ";f;" hours"
  48. box 17,1,18,3*f,1
  49. print
  50. print "Sunday: ";g;" hours"
  51. box 20,1,21,3*g,1
  52. print
  53. h=a+b+c+d+e+f+g
  54. print "Total: ";h;" hours"
  55. print "Average: ";h/7;" ";h%7;"/7 hours per day"
  56. system
  57. ə